home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 21 / 021.d81 / print select (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  71 lines
  1. 5 b=198:poke53281,1:poke53280,5
  2. 6 bl$="                                       ":open15,8,15,"i0":close15
  3. 7 open2,8,2,"$":forx=0to156:get#2,a$:     :next
  4. 8 get#2,a$:si=val(a$):close2
  5. 10 print"[147][144]        [204][207][193][196][211][212][193][210][160][200]ardcopy [211]etup         "
  6. 20 print"[196]o you have:":print:print"  [195]ommodore 1525"
  7. 30 print"  [195]ommodore 1526":print"  [195]ommodore [205][208][211] 801"
  8. 40 print"  [212]ymac [195]onnection"
  9. 50 print"  [195]ard/?[160][193], [194], or +[199]"
  10. 60 print"  [194]us[195]ard [201][197][197][197]"
  11. 70 print"or any other 1525-compatible setup?"
  12. 80 pokeb,.:waitb,1:geta$
  13. 90 ifa$="y"ora$="[217]"thenpa=4:sa=7:c8%=-1:   goto300
  14. 100 ifa$<>"n"anda$<>"[206]"then80
  15. 110 print"[196]o you have a [195]ommodore 1520?"
  16. 115 forx=0to10:printbl$:next
  17. 120 pokeb,.:waitb,1:geta$
  18. 130 ifa$="y"ora$="[217]"thenpa=6:sa=0:          goto300
  19. 140 ifa$<>"n"anda$<>"[206]"then120
  20. 150 print"[196]o you have an old [195]ommodore 1515?"
  21. 155 forx=0to10:printbl$:next
  22. 160 pokeb,.:waitb,1:geta$
  23. 170 ifa$="y"ora$="[217]"thenpa=4:sa=7:c8%=0:    goto300
  24. 180 ifa$<>"n"anda$<>"[206]"then160
  25. 190 :
  26. 200 print"[207].[203]. then, please enter the correct"
  27. 202 print"data for your printer:"
  28. 203 forx=0to10:printbl$:next
  29. 204 print"[197]nter primary   address --";:inputpa$:pa=val(pa$)
  30. 206 print:print:print"[197]nter secondary address --";:inputsa$:sa=val(sa$)
  31. 300 rem   done
  32. 301 print"":forx=0to10:printbl$:next
  33. 302 print"[208]rimary address of"pa"[157]."
  34. 304 print"[211]econdary address of"sa"[157]."
  35. 305 :
  36. 310 print"[193]re these selections correct?"
  37. 312 print"          [[217]/[206]] or [209] to [209]uit"
  38. 315 pokeb,0:waitb,1:geta$
  39. 320 ifa$<>"y"anda$<>"n"anda$<>"q"then315
  40. 325 :
  41. 330 ifa$="q"then1000
  42. 340 ifa$="n"then10
  43. 345 goto500 :  rem   do the stuff
  44. 350 :
  45. 360 print"":forx=0to20:printbl$:next
  46. 370 print"   [208]lease make sure side"si"of your"
  47. 375 print"   [204][207][193][196][211][212][193][210] disk is in your drive."
  48. 380 print" [208]lease press a key when you are ready."
  49. 381 print"      ([208]ress [209] to [209]uit)"
  50. 382 pokeb,0:waitb,1:geta$:ifa$="q"then300
  51. 386 open15,8,15,"i0":open8,8,8,"print.file":input#15,er,er$,ns,tr
  52. 387 fl=0:ifer<20then400
  53. 388 print"          [196] [201] [211] [203][160]  [197] [210] [210] [207] [210]!!!":fordl=1to2500:next:fl=1
  54. 389 close8:close15:return
  55. 390 :
  56. 400 rem    do the real stuff
  57. 402 print#15,"p"chr$(8)chr$(1)chr$(0)chr$(1):print#8,pa;chr$(13);sa;chr$(13)
  58. 405 close8:close15
  59. 410 print"   [208]rint file is now on this side"
  60. 412 print"            of the disk."
  61. 416 return
  62. 450 :
  63. 500 gosub360:iffl=1then500
  64. 510 ifsi=1thensi=2:goto530
  65. 520 ifsi=2thensi=1
  66. 530 gosub360:iffl=1then530
  67. 540 print"":forx=0to20:printbl$:next
  68. 542 print"[208]rocess now complete."
  69. 544 print"[206]ow returning to [204][207][193][196][211][212][193][210]..."
  70. 1000 fordl=1to1000:next:                     load"hello connect",8
  71.